Packages

library(readr)
library(dplyr)
library(ggplot2)
library(plotly)
Warning: package ‘plotly’ was built under R version 4.0.5
Attaching package: ‘plotly’

The following object is masked from ‘package:ggplot2’:

    last_plot

The following object is masked from ‘package:stats’:

    filter

The following object is masked from ‘package:graphics’:

    layout

load data

wrangle data

viz data

dv1 <- ggplot(edit_x35) +
 aes(x = primary_disease, fill = lineage) +
 geom_bar() +
 scale_fill_hue(direction = 1) +
 coord_flip() +
 theme_classic()

ggplotly(dv1) 
LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKClBhY2thZ2VzCmBgYHtyfQpsaWJyYXJ5KHJlYWRyKQpsaWJyYXJ5KGRwbHlyKQpsaWJyYXJ5KGdncGxvdDIpCmxpYnJhcnkocGxvdGx5KQpgYGAKCmxvYWQgZGF0YQpgYGB7cn0KWDM1MDIwOTAzIDwtIHJlYWRyOjpyZWFkX2NzdigiaHR0cHM6Ly9uZG93bmxvYWRlci5maWdzaGFyZS5jb20vZmlsZXMvMzUwMjA5MDMiKQoKYGBgCgp3cmFuZ2xlIGRhdGEKYGBge3J9CgplZGl0X3gzNSA8LSBYMzUwMjA5MDMgJT4lCiBmaWx0ZXIoc2V4ICVpbiUgIkZlbWFsZSIgfCBpcy5uYShzZXgpKSAlPiUKIGZpbHRlcighKGxpbmVhZ2UgJWluJSAidW5rbm93biIpKQoKYGBgCgp2aXogZGF0YQpgYGB7cn0KCmR2MSA8LSBnZ3Bsb3QoZWRpdF94MzUpICsKIGFlcyh4ID0gcHJpbWFyeV9kaXNlYXNlLCBmaWxsID0gbGluZWFnZSkgKwogZ2VvbV9iYXIoKSArCiBzY2FsZV9maWxsX2h1ZShkaXJlY3Rpb24gPSAxKSArCiBjb29yZF9mbGlwKCkgKwogdGhlbWVfY2xhc3NpYygpCgpnZ3Bsb3RseShkdjEpIAoKYGBgCgo=